MacWorld 1999 July

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Graphics / AutoPlotVW Package / AP Plug-ins / AP_Distrib. Syms Along Line.vsm < prev next >
Unknown | 1999-01-20 | 8.8 KB | [MCmp/CDP3]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	siegfried	fmt/1142 VectorWorks Plugin or Script	default
id metadata
key	value
macFileType	`[MCmp]`
macFileCreator	`[CDP3]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4d 43 56 53 00 4d 1b 41 | 50 5f 44 69 73 74 72 69 |MCVS.M.A|P_Distri|
|00000010| 62 2e 20 53 79 6d 73 20 | 41 6c 6f 6e 67 20 4c 69 |b. Syms |Along Li|
|00000020| 6e 65 bc 88 01 52 00 00 | 00 00 02 66 a1 d4 00 00 |ne...R..|...f....|
|00000030| 00 04 00 00 00 02 00 00 | 00 00 00 00 02 67 02 67 |........|.....g.g|
|00000040| 53 d4 02 67 53 e0 08 41 | 75 74 6f 50 6c 6f 74 6e |S..gS..A|utoPlotn|
|00000050| 65 6f 75 73 00 00 01 0c | 00 14 01 00 00 00 01 00 |eous....|........|
|00000060| 04 a2 00 05 00 00 00 60 | 02 69 b4 f0 00 05 00 00 |.......`|.i......|
|00000070| 07 52 65 71 75 69 72 65 | 02 67 53 3a 02 54 bc 88 |.Require|.gS:.T..|
|00000080| 01 00 00 00 00 00 00 01 | 00 00 08 b2 00 00 1a 9d |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 09 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 02 | 00 00 00 00 00 14 02 52 |........|.......R|
|000007b0| 00 60 02 69 b4 f0 00 05 | 00 00 07 52 65 71 75 69 |.`.i....|...Requi|
|000007c0| 72 65 02 67 53 3a 02 54 | bc 88 01 00 00 00 00 00 |re.gS:.T|........|
|000007d0| 02 66 a5 58 00 00 00 04 | 00 00 00 02 00 00 00 00 |.f.X....|........|
|000007e0| 00 00 48 65 02 67 53 3c | 02 67 53 48 02 67 84 74 |..He.gS<|.gSH.g.t|
|000007f0| 00 2a 00 01 00 10 00 78 | 00 00 00 00 01 00 00 14 |.*.....x|........|
|00000800| 01 00 00 00 01 00 04 9a | 00 0b 00 00 00 00 02 69 |........|.......i|
|00000810| b4 f0 00 0b 02 00 53 00 | 00 00 53 96 05 41 02 66 |......S.|..S..A.f|
|00000820| a7 8c 00 00 00 0c 00 03 | 00 00 00 00 01 00 02 53 |........|.......S|
|00000830| e5 64 02 69 34 24 00 00 | 00 00 02 53 6c e0 01 69 |.d.i4$..|...Sl..i|
|00000840| 02 69 42 f0 00 00 00 00 | 01 00 00 00 00 0c 05 41 |.iB.....|.......A|
|00000850| 9f c2 02 67 53 68 00 00 | 00 14 02 52 34 60 48 65 |...gSh..|...R4`He|
|00000860| 6c 70 00 00 00 00 02 67 | 53 d6 00 00 00 78 02 67 |lp.....g|S....x.g|
|00000870| 53 d4 02 54 bc 88 01 00 | 00 00 00 00 02 66 a1 d0 |S..T....|.....f..|
|00000880| 00 00 00 04 00 00 00 02 | 00 00 00 00 00 00 02 69 |........|.......i|
|00000890| 02 67 53 d6 02 67 53 e2 | 05 41 9e 28 00 69 00 0c |.gS..gS.|.A.(.i..|
|000008a0| 00 10 00 10 00 00 00 00 | 01 20 00 14 01 00 00 00 |........|. ......|
|000008b0| 00 00 7b 4d 61 63 72 6f | 73 20 44 65 76 65 6c 6f |..{Macro|s Develo|
|000008c0| 70 65 64 20 62 79 20 53 | 61 6d 20 4a 6f 6e 65 73 |ped by S|am Jones|
|000008d0| 7d 0d 7b a9 20 43 6f 70 | 79 72 69 67 68 74 20 4a |}.{. Cop|yright J|
|000008e0| 75 6e 65 20 31 39 39 33 | 7d 0d 7b 69 6e 20 63 6f |une 1993|}.{in co|
|000008f0| 6e 73 75 6c 74 61 74 69 | 6f 6e 20 77 69 74 68 20 |nsultati|on with |
|00000900| 53 74 61 6e 20 50 72 65 | 73 73 6e 65 72 7d 0d 7b |Stan Pre|ssner}.{|
|00000910| 53 65 65 20 43 72 65 64 | 69 74 73 7d 0d 0d 0d 50 |See Cred|its}...P|
|00000920| 52 4f 43 45 44 55 52 45 | 20 44 69 73 74 72 69 62 |ROCEDURE| Distrib|
|00000930| 75 74 65 53 79 6d 73 41 | 6c 6f 6e 67 4c 69 6e 65 |uteSymsA|longLine|
|00000940| 3b 0d 56 41 52 0d 09 4f | 62 6a 48 61 6e 64 6c 65 |;.VAR..O|bjHandle|
|00000950| 20 3a 20 48 61 6e 64 6c | 65 3b 0d 09 58 2c 59 20 | : Handl|e;..X,Y |
|00000960| 3a 20 52 65 61 6c 3b 0d | 09 61 2c 64 2c 6d 2c 66 |: Real;.|.a,d,m,f|
|00000970| 2c 67 2c 68 2c 69 2c 6a | 2c 6b 20 3a 20 52 65 61 |,g,h,i,j|,k : Rea|
|00000980| 6c 3b 0d 09 74 20 3a 20 | 49 4e 54 45 47 45 52 3b |l;..t : |INTEGER;|
|00000990| 0d 09 4e 75 6d 4f 66 4f | 62 6a 73 20 3a 20 49 4e |..NumOfO|bjs : IN|
|000009a0| 54 45 47 45 52 3b 0d 09 | 48 61 6e 64 6c 65 41 72 |TEGER;..|HandleAr|
|000009b0| 72 61 79 20 3a 20 61 72 | 72 61 79 5b 31 2e 2e 31 |ray : ar|ray[1..1|
|000009c0| 30 30 5d 20 6f 66 20 48 | 61 6e 64 6c 65 3b 0d 09 |00] of H|andle;..|
|000009d0| 4e 75 6d 41 72 72 61 79 | 20 3a 20 61 72 72 61 79 |NumArray| : array|
|000009e0| 5b 31 2e 2e 31 30 30 5d | 20 6f 66 20 52 45 41 4c |[1..100]| of REAL|
|000009f0| 3b 0d 09 49 6e 64 65 78 | 20 3a 20 49 4e 54 45 47 |;..Index| : INTEG|
|00000a00| 45 52 3b 0d 09 52 65 63 | 48 61 6e 64 6c 65 20 3a |ER;..Rec|Handle :|
|00000a10| 20 48 61 6e 64 6c 65 3b | 0d 09 53 79 6d 41 6e 67 | Handle;|..SymAng|
|00000a20| 6c 65 41 72 72 61 79 20 | 3a 20 61 72 72 61 79 5b |leArray |: array[|
|00000a30| 31 2e 2e 31 30 30 5d 20 | 6f 66 20 52 65 61 6c 3b |1..100] |of Real;|
|00000a40| 0d 09 52 6f 74 61 74 65 | 4f 62 6a 65 63 74 73 20 |..Rotate|Objects |
|00000a50| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 4d 69 73 73 |: boolea|n;..Miss|
|00000a60| 69 6e 67 4e 75 6d 62 65 | 72 20 3a 20 62 6f 6f 6c |ingNumbe|r : bool|
|00000a70| 65 61 6e 3b 0d 09 41 62 | 6f 72 74 20 3a 20 62 6f |ean;..Ab|ort : bo|
|00000a80| 6f 6c 65 61 6e 3b 0d 09 | 54 68 65 4b 65 79 20 3a |olean;..|TheKey :|
|00000a90| 20 69 6e 74 65 67 65 72 | 3b 0d 0d 7b 2d 2d 2d 2d | integer|;..{----|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ad0| 2d 2d 2d 2d 2d 7d 0d 0d | 09 50 52 4f 43 45 44 55 |-----}..|.PROCEDU|
|00000ae0| 52 45 20 4d 61 6b 65 41 | 72 72 61 79 45 6c 65 6d |RE MakeA|rrayElem|
|00000af0| 65 6e 74 28 74 68 65 53 | 79 6d 4f 62 6a 65 63 74 |ent(theS|ymObject|
|00000b00| 20 3a 20 48 41 4e 44 4c | 45 3b 20 75 6e 69 74 53 | : HANDL|E; unitS|
|00000b10| 74 72 20 3a 20 53 54 52 | 49 4e 47 3b 20 6f 62 6a |tr : STR|ING; obj|
|00000b20| 41 6e 67 6c 65 20 3a 20 | 52 45 41 4c 29 3b 0d 09 |Angle : |REAL);..|
|00000b30| 0d 09 56 41 52 0d 09 09 | 78 2c 79 20 3a 20 52 45 |..VAR...|x,y : RE|
|00000b40| 41 4c 3b 0d 0d 09 09 6f | 62 6a 65 63 74 48 6f 6c |AL;....o|bjectHol|
|00000b50| 64 65 72 20 3a 20 48 41 | 4e 44 4c 45 3b 0d 09 0d |der : HA|NDLE;...|
|00000b60| 09 42 45 47 49 4e 0d 09 | 09 4e 75 6d 4f 66 4f 62 |.BEGIN..|.NumOfOb|
|00000b70| 6a 73 20 3a 3d 20 4e 75 | 6d 4f 66 4f 62 6a 73 20 |js := Nu|mOfObjs |
|00000b80| 2b 20 31 3b 0d 0d 09 09 | 48 61 6e 64 6c 65 41 72 |+ 1;....|HandleAr|
|00000b90| 72 61 79 5b 4e 75 6d 4f | 66 4f 62 6a 73 5d 20 3a |ray[NumO|fObjs] :|
|00000ba0| 3d 20 4f 62 6a 48 61 6e | 64 6c 65 3b 0d 09 09 4e |= ObjHan|dle;...N|
|00000bb0| 75 6d 41 72 72 61 79 5b | 4e 75 6d 4f 66 4f 62 6a |umArray[|NumOfObj|
|00000bc0| 73 5d 20 3a 3d 20 53 74 | 72 32 4e 75 6d 28 75 6e |s] := St|r2Num(un|
|00000bd0| 69 74 53 74 72 29 3b 0d | 09 09 53 79 6d 41 6e 67 |itStr);.|..SymAng|
|00000be0| 6c 65 41 72 72 61 79 5b | 4e 75 6d 4f 66 4f 62 6a |leArray[|NumOfObj|
|00000bf0| 73 5d 20 3a 3d 20 6f 62 | 6a 41 6e 67 6c 65 0d 09 |s] := ob|jAngle..|
|00000c00| 45 4e 44 3b 20 7b 50 52 | 4f 43 45 44 55 52 45 20 |END; {PR|OCEDURE |
|00000c10| 4d 61 6b 65 41 72 72 61 | 79 45 6c 65 6d 65 6e 74 |MakeArra|yElement|
|00000c20| 7d 0d 09 0d 7b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}...{---|--------|
|00000c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 09 0d |--------|----}...|
|00000c60| 09 50 52 4f 43 45 44 55 | 52 45 20 46 69 6c 6c 41 |.PROCEDU|RE FillA|
|00000c70| 72 72 61 79 3b 0d 09 56 | 41 52 0d 09 09 75 6e 69 |rray;..V|AR...uni|
|00000c80| 74 53 74 72 20 3a 20 53 | 54 52 49 4e 47 3b 0d 09 |tStr : S|TRING;..|
|00000c90| 09 67 72 70 4f 62 6a 20 | 3a 20 48 41 4e 44 4c 45 |.grpObj |: HANDLE|
|00000ca0| 3b 0d 09 09 6f 62 6a 41 | 6e 67 6c 65 20 3a 20 52 |;...objA|ngle : R|
|00000cb0| 45 41 4c 3b 0d 0d 09 42 | 45 47 49 4e 0d 09 09 4d |EAL;...B|EGIN...M|
|00000cc0| 69 73 73 69 6e 67 4e 75 | 6d 62 65 72 20 3a 3d 20 |issingNu|mber := |
|00000cd0| 46 61 6c 73 65 3b 0d 09 | 09 4e 75 6d 4f 66 4f 62 |False;..|.NumOfOb|
|00000ce0| 6a 73 20 3a 3d 20 30 3b | 0d 09 09 4f 62 6a 48 61 |js := 0;|...ObjHa|
|00000cf0| 6e 64 6c 65 20 3a 3d 20 | 46 53 41 63 74 4c 61 79 |ndle := |FSActLay|
|00000d00| 65 72 3b 0d 09 09 57 48 | 49 4c 45 20 4f 62 6a 48 |er;...WH|ILE ObjH|
|00000d10| 61 6e 64 6c 65 20 3c 3e | 20 4e 49 4c 20 44 4f 0d |andle <>| NIL DO.|
|00000d20| 09 09 42 45 47 49 4e 0d | 09 09 09 49 46 20 47 65 |..BEGIN.|...IF Ge|
|00000d30| 74 54 79 70 65 28 4f 62 | 6a 48 61 6e 64 6c 65 29 |tType(Ob|jHandle)|
|00000d40| 20 3d 20 31 35 20 20 54 | 48 45 4e 20 42 45 47 49 | = 15  T|HEN BEGI|
|00000d50| 4e 0d 09 09 09 09 52 65 | 63 48 61 6e 64 6c 65 20 |N.....Re|cHandle |
|00000d60| 3a 3d 20 47 65 74 52 65 | 63 6f 72 64 28 4f 62 6a |:= GetRe|cord(Obj|
|00000d70| 48 61 6e 64 6c 65 2c 31 | 29 3b 0d 09 09 09 09 49 |Handle,1|);.....I|
|00000d80| 46 20 28 52 65 63 48 61 | 6e 64 6c 65 3c 3e 4e 49 |F (RecHa|ndle<>NI|
|00000d90| 4c 29 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |L) THEN |BEGIN...|
|00000da0| 09 09 09 75 6e 69 74 53 | 74 72 20 3a 3d 20 45 76 |...unitS|tr := Ev|
|00000db0| 61 6c 53 74 72 28 4f 62 | 6a 48 61 6e 64 6c 65 2c |alStr(Ob|jHandle,|
|00000dc0| 20 28 27 4c 69 67 68 74 | 73 27 2e 27 55 6e 69 74 | ('Light|s'.'Unit|
|00000dd0| 20 23 27 29 29 3b 0d 09 | 09 09 09 09 6f 62 6a 41 | #'));..|....objA|
|00000de0| 6e 67 6c 65 20 3a 3d 20 | 47 65 74 53 79 6d 52 6f |ngle := |GetSymRo|
|00000df0| 74 28 4f 62 6a 48 61 6e | 64 6c 65 29 3b 0d 09 09 |t(ObjHan|dle);...|
|00000e00| 09 09 45 4e 44 3b 0d 09 | 09 09 45 4e 44 20 7b 49 |..END;..|..END {I|
|00000e10| 46 20 47 65 74 54 79 70 | 65 28 4f 62 6a 48 61 6e |F GetTyp|e(ObjHan|
|00000e20| 64 6c 65 29 20 3d 20 31 | 35 20 7d 0d 09 09 09 45 |dle) = 1|5 }....E|
|00000e30| 4c 53 45 20 49 46 20 47 | 65 74 54 79 70 65 28 4f |LSE IF G|etType(O|
|00000e40| 62 6a 48 61 6e 64 6c 65 | 29 20 3d 20 31 31 20 54 |bjHandle|) = 11 T|
|00000e50| 48 45 4e 20 42 45 47 49 | 4e 0d 09 09 09 09 67 72 |HEN BEGI|N.....gr|
|00000e60| 70 4f 62 6a 20 3a 3d 20 | 46 49 6e 47 72 6f 75 70 |pObj := |FInGroup|
|00000e70| 28 4f 62 6a 48 61 6e 64 | 6c 65 29 3b 0d 09 09 09 |(ObjHand|le);....|
|00000e80| 09 57 48 49 4c 45 20 28 | 28 67 72 70 4f 62 6a 20 |.WHILE (|(grpObj |
|00000e90| 3c 3e 20 4e 49 4c 29 20 | 41 4e 44 20 28 47 65 74 |<> NIL) |AND (Get|
|00000ea0| 54 79 70 65 28 67 72 70 | 4f 62 6a 29 20 3c 3e 20 |Type(grp|Obj) <> |
|00000eb0| 31 35 29 29 20 44 4f 0d | 09 09 09 09 09 67 72 70 |15)) DO.|.....grp|
|00000ec0| 4f 62 6a 20 3a 3d 20 4e | 65 78 74 4f 62 6a 28 67 |Obj := N|extObj(g|
|00000ed0| 72 70 4f 62 6a 29 3b 0d | 09 09 09 09 49 46 20 67 |rpObj);.|....IF g|
|00000ee0| 72 70 4f 62 6a 20 3c 3e | 20 4e 49 4c 20 54 48 45 |rpObj <>| NIL THE|
|00000ef0| 4e 20 42 45 47 49 4e 0d | 09 09 09 09 09 52 65 63 |N BEGIN.|.....Rec|
|00000f00| 48 61 6e 64 6c 65 20 3a | 3d 20 47 65 74 52 65 63 |Handle :|= GetRec|
|00000f10| 6f 72 64 28 67 72 70 4f | 62 6a 2c 31 29 3b 0d 09 |ord(grpO|bj,1);..|
|00000f20| 09 09 09 09 49 46 20 28 | 52 65 63 48 61 6e 64 6c |....IF (|RecHandl|
|00000f30| 65 3c 3e 4e 49 4c 29 20 | 54 48 45 4e 20 42 45 47 |e<>NIL) |THEN BEG|
|00000f40| 49 4e 0d 09 09 09 09 09 | 09 75 6e 69 74 53 74 72 |IN......|.unitStr|
|00000f50| 20 3a 3d 20 45 76 61 6c | 53 74 72 28 67 72 70 4f | := Eval|Str(grpO|
|00000f60| 62 6a 2c 20 28 27 4c 69 | 67 68 74 73 27 2e 27 55 |bj, ('Li|ghts'.'U|
|00000f70| 6e 69 74 20 23 27 29 29 | 3b 0d 09 09 09 09 09 09 |nit #'))|;.......|
|00000f80| 6f 62 6a 41 6e 67 6c 65 | 20 3a 3d 20 47 65 74 53 |objAngle| := GetS|
|00000f90| 79 6d 52 6f 74 28 67 72 | 70 4f 62 6a 29 3b 0d 09 |ymRot(gr|pObj);..|
|00000fa0| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 45 4e 44 |....END;|.....END|
|00000fb0| 3b 0d 09 09 09 45 4e 44 | 3b 0d 09 09 09 49 46 20 |;....END|;....IF |
|00000fc0| 75 6e 69 74 53 74 72 20 | 3c 3e 20 27 27 20 54 48 |unitStr |<> '' TH|
|00000fd0| 45 4e 0d 09 09 09 09 4d | 61 6b 65 41 72 72 61 79 |EN.....M|akeArray|
|00000fe0| 45 6c 65 6d 65 6e 74 28 | 4f 62 6a 48 61 6e 64 6c |Element(|ObjHandl|
|00000ff0| 65 2c 20 75 6e 69 74 53 | 74 72 2c 20 6f 62 6a 41 |e, unitS|tr, objA|
|00001000| 6e 67 6c 65 29 0d 09 09 | 09 45 4c 53 45 0d 09 09 |ngle)...|.ELSE...|
|00001010| 09 09 4d 69 73 73 69 6e | 67 4e 75 6d 62 65 72 20 |..Missin|gNumber |
|00001020| 3a 3d 20 54 72 75 65 3b | 0d 09 09 09 0d 09 09 09 |:= True;|........|
|00001030| 49 46 20 4d 69 73 73 69 | 6e 67 4e 75 6d 62 65 72 |IF Missi|ngNumber|
|00001040| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 09 | THEN BE|GIN.....|
|00001050| 4f 62 6a 48 61 6e 64 6c | 65 20 3a 3d 20 4e 49 4c |ObjHandl|e := NIL|
|00001060| 3b 0d 09 09 09 09 41 6c | 72 74 44 69 61 6c 6f 67 |;.....Al|rtDialog|
|00001070| 28 27 41 74 20 6c 65 61 | 73 74 20 6f 6e 65 20 73 |('At lea|st one s|
|00001080| 79 6d 62 6f 6c 20 69 73 | 20 6e 6f 74 20 6e 75 6d |ymbol is| not num|
|00001090| 62 65 72 65 64 2e 27 29 | 3b 0d 09 09 09 45 4e 44 |bered.')|;....END|
|000010a0| 0d 09 09 09 45 4c 53 45 | 0d 09 09 09 09 4f 62 6a |....ELSE|.....Obj|
|000010b0| 48 61 6e 64 6c 65 20 3a | 3d 20 4e 65 78 74 53 4f |Handle :|= NextSO|
|000010c0| 62 6a 28 4f 62 6a 48 61 | 6e 64 6c 65 29 3b 0d 09 |bj(ObjHa|ndle);..|
|000010d0| 09 45 4e 44 3b 20 7b 57 | 48 49 4c 45 20 4f 62 6a |.END; {W|HILE Obj|
|000010e0| 48 61 6e 64 6c 65 20 3c | 3e 20 4e 49 4c 7d 0d 09 |Handle <|> NIL}..|
|000010f0| 45 4e 44 3b 20 7b 46 69 | 6c 6c 41 72 72 61 79 7d |END; {Fi|llArray}|
|00001100| 0d 09 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...{----|--------|
|00001110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 09 0d 09 |--------|---}....|
|00001140| 50 52 4f 43 45 44 55 52 | 45 20 53 6f 72 74 41 72 |PROCEDUR|E SortAr|
|00001150| 72 61 79 3b 0d 09 56 41 | 52 0d 09 09 69 6e 64 65 |ray;..VA|R...inde|
|00001160| 78 31 2c 69 6e 64 65 78 | 32 20 3a 20 49 4e 54 45 |x1,index|2 : INTE|
|00001170| 47 45 52 3b 0d 09 09 6e | 75 6d 31 2c 6e 75 6d 32 |GER;...n|um1,num2|
|00001180| 20 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 6f 62 | : INTEG|ER;...ob|
|00001190| 6a 65 63 74 48 6f 6c 64 | 65 72 20 3a 20 48 61 6e |jectHold|er : Han|
|000011a0| 64 6c 65 3b 0d 09 09 6e | 75 6d 48 6f 6c 64 65 72 |dle;...n|umHolder|
|000011b0| 20 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 09 73 79 | : INTEG|ER;...sy|
|000011c0| 6d 41 6e 67 48 6f 6c 64 | 65 72 20 3a 20 52 45 41 |mAngHold|er : REA|
|000011d0| 4c 3b 0d 09 09 0d 09 42 | 45 47 49 4e 0d 09 09 69 |L;.....B|EGIN...i|
|000011e0| 6e 64 65 78 31 20 3a 3d | 20 31 3b 0d 09 09 46 4f |ndex1 :=| 1;...FO|
|000011f0| 52 20 69 6e 64 65 78 31 | 20 3a 3d 20 31 20 54 4f |R index1| := 1 TO|
|00001200| 20 4e 75 6d 4f 66 4f 62 | 6a 73 20 2d 20 31 20 44 | NumOfOb|js - 1 D|
|00001210| 4f 0d 09 09 42 45 47 49 | 4e 0d 09 09 09 46 4f 52 |O...BEGI|N....FOR|
|00001220| 20 69 6e 64 65 78 32 20 | 3a 3d 20 69 6e 64 65 78 | index2 |:= index|
|00001230| 31 20 2b 31 20 54 4f 20 | 4e 75 6d 4f 66 4f 62 6a |1 +1 TO |NumOfObj|
|00001240| 73 20 44 4f 0d 09 09 09 | 42 45 47 49 4e 0d 09 09 |s DO....|BEGIN...|
|00001250| 09 09 49 46 20 4e 75 6d | 41 72 72 61 79 5b 69 6e |..IF Num|Array[in|
|00001260| 64 65 78 31 5d 20 3e 20 | 4e 75 6d 41 72 72 61 79 |dex1] > |NumArray|
|00001270| 5b 69 6e 64 65 78 32 5d | 20 54 48 45 4e 0d 09 09 |[index2]| THEN...|
|00001280| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 6f 62 6a |..BEGIN.|.....obj|
|00001290| 65 63 74 48 6f 6c 64 65 | 72 20 3a 3d 20 48 61 6e |ectHolde|r := Han|
|000012a0| 64 6c 65 41 72 72 61 79 | 5b 69 6e 64 65 78 32 5d |dleArray|[index2]|
|000012b0| 3b 0d 09 09 09 09 09 6e | 75 6d 48 6f 6c 64 65 72 |;......n|umHolder|
|000012c0| 20 3a 3d 20 4e 75 6d 41 | 72 72 61 79 5b 69 6e 64 | := NumA|rray[ind|
|000012d0| 65 78 32 5d 3b 0d 09 09 | 09 09 09 73 79 6d 41 6e |ex2];...|...symAn|
|000012e0| 67 48 6f 6c 64 65 72 20 | 3a 3d 20 53 79 6d 41 6e |gHolder |:= SymAn|
|000012f0| 67 6c 65 41 72 72 61 79 | 5b 69 6e 64 65 78 32 5d |gleArray|[index2]|
|00001300| 3b 0d 09 09 09 09 09 48 | 61 6e 64 6c 65 41 72 72 |;......H|andleArr|
|00001310| 61 79 5b 69 6e 64 65 78 | 32 5d 20 3a 3d 20 48 61 |ay[index|2] := Ha|
|00001320| 6e 64 6c 65 41 72 72 61 | 79 5b 69 6e 64 65 78 31 |ndleArra|y[index1|
|00001330| 5d 3b 20 0d 09 09 09 09 | 09 4e 75 6d 41 72 72 61 |]; .....|.NumArra|
|00001340| 79 5b 69 6e 64 65 78 32 | 5d 20 3a 3d 20 4e 75 6d |y[index2|] := Num|
|00001350| 41 72 72 61 79 5b 69 6e | 64 65 78 31 5d 3b 0d 09 |Array[in|dex1];..|
|00001360| 09 09 09 09 53 79 6d 41 | 6e 67 6c 65 41 72 72 61 |....SymA|ngleArra|
|00001370| 79 5b 69 6e 64 65 78 32 | 5d 20 3a 3d 20 53 79 6d |y[index2|] := Sym|
|00001380| 41 6e 67 6c 65 41 72 72 | 61 79 5b 69 6e 64 65 78 |AngleArr|ay[index|
|00001390| 31 5d 3b 0d 09 09 09 09 | 09 48 61 6e 64 6c 65 41 |1];.....|.HandleA|
|000013a0| 72 72 61 79 5b 69 6e 64 | 65 78 31 5d 20 3a 3d 20 |rray[ind|ex1] := |
|000013b0| 6f 62 6a 65 63 74 48 6f | 6c 64 65 72 3b 20 0d 09 |objectHo|lder; ..|
|000013c0| 09 09 09 09 4e 75 6d 41 | 72 72 61 79 5b 69 6e 64 |....NumA|rray[ind|
|000013d0| 65 78 31 5d 20 3a 3d 20 | 6e 75 6d 48 6f 6c 64 65 |ex1] := |numHolde|
|000013e0| 72 3b 0d 09 09 09 09 09 | 53 79 6d 41 6e 67 6c 65 |r;......|SymAngle|
|000013f0| 41 72 72 61 79 5b 69 6e | 64 65 78 31 5d 20 3a 3d |Array[in|dex1] :=|
|00001400| 20 73 79 6d 41 6e 67 48 | 6f 6c 64 65 72 3b 0d 09 | symAngH|older;..|
|00001410| 09 09 09 45 4e 44 3b 20 | 7b 49 46 20 4e 75 6d 41 |...END; |{IF NumA|
|00001420| 72 72 61 79 5b 69 6e 64 | 65 78 31 5d 20 3c 20 4e |rray[ind|ex1] < N|
|00001430| 75 6d 41 72 72 61 79 5b | 69 6e 64 65 78 32 5d 7d |umArray[|index2]}|
|00001440| 0d 09 09 09 45 4e 44 3b | 20 7b 46 4f 52 20 69 6e |....END;| {FOR in|
|00001450| 64 65 78 32 7d 0d 09 09 | 45 4e 44 3b 20 7b 46 4f |dex2}...|END; {FO|
|00001460| 52 20 69 6e 64 65 78 31 | 7d 0d 09 0d 09 45 4e 44 |R index1|}....END|
|00001470| 3b 20 7b 53 6f 72 74 41 | 72 72 61 79 7d 0d 09 0d |; {SortA|rray}...|
|00001480| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00001490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014b0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 0d 09 50 52 4f 43 |--------|}...PROC|
|000014c0| 45 44 55 52 45 20 47 65 | 74 47 72 6f 75 70 53 79 |EDURE Ge|tGroupSy|
|000014d0| 6d 52 6f 74 61 74 65 50 | 74 28 67 72 70 4f 62 6a |mRotateP|t(grpObj|
|000014e0| 65 63 74 3a 48 61 6e 64 | 6c 65 3b 20 56 41 52 20 |ect:Hand|le; VAR |
|000014f0| 78 2c 79 3a 52 45 41 4c | 29 3b 0d 0d 09 56 41 52 |x,y:REAL|);...VAR|
|00001500| 0d 09 09 69 6e 73 69 64 | 65 4f 62 6a 31 2c 20 69 |...insid|eObj1, i|
|00001510| 6e 73 69 64 65 4f 62 6a | 32 2c 20 69 6e 73 69 64 |nsideObj|2, insid|
|00001520| 65 4f 62 6a 33 2c 20 69 | 6e 73 69 64 65 4f 62 6a |eObj3, i|nsideObj|
|00001530| 34 20 3a 20 48 41 4e 44 | 4c 45 3b 0d 09 09 78 31 |4 : HAND|LE;...x1|
|00001540| 2c 79 31 2c 78 32 2c 79 | 32 20 3a 20 52 45 41 4c |,y1,x2,y|2 : REAL|
|00001550| 3b 0d 09 09 75 6e 69 74 | 53 74 72 31 2c 20 75 6e |;...unit|Str1, un|
|00001560| 69 74 53 74 72 32 2c 75 | 6e 69 74 53 74 72 33 2c |itStr2,u|nitStr3,|
|00001570| 75 6e 69 74 53 74 72 34 | 20 3a 20 53 54 52 49 4e |unitStr4| : STRIN|
|00001580| 47 3b 0d 09 09 75 6e 69 | 74 4e 75 6d 31 2c 20 75 |G;...uni|tNum1, u|
|00001590| 6e 69 74 4e 75 6d 32 2c | 20 75 6e 69 74 4e 75 6d |nitNum2,| unitNum|
|000015a0| 33 2c 20 75 6e 69 74 4e | 75 6d 34 20 3a 20 52 45 |3, unitN|um4 : RE|
|000015b0| 41 4c 3b 0d 09 09 0d 09 | 42 45 47 49 4e 0d 09 09 |AL;.....|BEGIN...|
|000015c0| 69 6e 73 69 64 65 4f 62 | 6a 31 20 3a 3d 20 46 49 |insideOb|j1 := FI|
|000015d0| 6e 47 72 6f 75 70 28 67 | 72 70 4f 62 6a 65 63 74 |nGroup(g|rpObject|
|000015e0| 29 3b 0d 09 09 75 6e 69 | 74 53 74 72 31 20 3a 3d |);...uni|tStr1 :=|
|000015f0| 20 45 76 61 6c 53 74 72 | 28 69 6e 73 69 64 65 4f | EvalStr|(insideO|
|00001600| 62 6a 31 2c 20 28 27 4c | 69 67 68 74 73 27 2e 27 |bj1, ('L|ights'.'|
|00001610| 55 6e 69 74 20 23 27 29 | 29 3b 0d 09 09 75 6e 69 |Unit #')|);...uni|
|00001620| 74 53 74 72 31 20 3a 3d | 20 43 6f 70 79 28 75 6e |tStr1 :=| Copy(un|
|00001630| 69 74 53 74 72 31 2c 50 | 6f 73 28 27 2e 27 2c 75 |itStr1,P|os('.',u|
|00001640| 6e 69 74 53 74 72 31 29 | 2c 32 29 3b 0d 09 09 0d |nitStr1)|,2);....|
|00001650| 09 09 69 6e 73 69 64 65 | 4f 62 6a 32 20 3a 3d 20 |..inside|Obj2 := |
|00001660| 4e 65 78 74 4f 62 6a 28 | 69 6e 73 69 64 65 4f 62 |NextObj(|insideOb|
|00001670| 6a 31 29 3b 0d 09 09 75 | 6e 69 74 53 74 72 32 20 |j1);...u|nitStr2 |
|00001680| 3a 3d 20 45 76 61 6c 53 | 74 72 28 69 6e 73 69 64 |:= EvalS|tr(insid|
|00001690| 65 4f 62 6a 32 2c 20 28 | 27 4c 69 67 68 74 73 27 |eObj2, (|'Lights'|
|000016a0| 2e 27 55 6e 69 74 20 23 | 27 29 29 3b 0d 09 09 75 |.'Unit #|'));...u|
|000016b0| 6e 69 74 53 74 72 32 20 | 3a 3d 20 43 6f 70 79 28 |nitStr2 |:= Copy(|
|000016c0| 75 6e 69 74 53 74 72 32 | 2c 50 6f 73 28 27 2e 27 |unitStr2|,Pos('.'|
|000016d0| 2c 75 6e 69 74 53 74 72 | 32 29 2c 32 29 3b 0d 0d |,unitStr|2),2);..|
|000016e0| 09 09 69 6e 73 69 64 65 | 4f 62 6a 33 20 3a 3d 20 |..inside|Obj3 := |
|000016f0| 4e 65 78 74 4f 62 6a 28 | 69 6e 73 69 64 65 4f 62 |NextObj(|insideOb|
|00001700| 6a 32 29 3b 0d 09 09 75 | 6e 69 74 53 74 72 33 20 |j2);...u|nitStr3 |
|00001710| 3a 3d 20 45 76 61 6c 53 | 74 72 28 69 6e 73 69 64 |:= EvalS|tr(insid|
|00001720| 65 4f 62 6a 33 2c 20 28 | 27 4c 69 67 68 74 73 27 |eObj3, (|'Lights'|
|00001730| 2e 27 55 6e 69 74 20 23 | 27 29 29 3b 0d 09 09 75 |.'Unit #|'));...u|
|00001740| 6e 69 74 53 74 72 33 20 | 3a 3d 20 43 6f 70 79 28 |nitStr3 |:= Copy(|
|00001750| 75 6e 69 74 53 74 72 33 | 2c 50 6f 73 28 27 2e 27 |unitStr3|,Pos('.'|
|00001760| 2c 75 6e 69 74 53 74 72 | 33 29 2c 32 29 3b 0d 09 |,unitStr|3),2);..|
|00001770| 09 0d 09 09 69 6e 73 69 | 64 65 4f 62 6a 34 20 3a |....insi|deObj4 :|
|00001780| 3d 20 4e 65 78 74 4f 62 | 6a 28 69 6e 73 69 64 65 |= NextOb|j(inside|
|00001790| 4f 62 6a 33 29 3b 0d 09 | 09 49 46 20 69 6e 73 69 |Obj3);..|.IF insi|
|000017a0| 64 65 4f 62 6a 34 20 3d | 20 4e 49 4c 20 54 48 45 |deObj4 =| NIL THE|
|000017b0| 4e 20 42 45 47 49 4e 0d | 09 09 09 49 46 20 75 6e |N BEGIN.|...IF un|
|000017c0| 69 74 53 74 72 31 20 3d | 20 27 2e 32 27 20 54 48 |itStr1 =| '.2' TH|
|000017d0| 45 4e 20 42 65 67 69 6e | 0d 09 09 09 09 47 65 74 |EN Begin|.....Get|
|000017e0| 53 79 6d 4c 6f 63 28 69 | 6e 73 69 64 65 4f 62 6a |SymLoc(i|nsideObj|
|000017f0| 31 2c 78 31 2c 79 31 29 | 3b 0d 09 09 09 09 65 6e |1,x1,y1)|;.....en|
|00001800| 64 0d 09 09 09 45 4c 53 | 45 20 49 46 20 75 6e 69 |d....ELS|E IF uni|
|00001810| 74 53 74 72 32 20 3d 20 | 27 2e 32 27 20 54 48 45 |tStr2 = |'.2' THE|
|00001820| 4e 20 42 65 67 69 6e 0d | 09 09 09 09 47 65 74 53 |N Begin.|....GetS|
|00001830| 79 6d 4c 6f 63 28 69 6e | 73 69 64 65 4f 62 6a 32 |ymLoc(in|sideObj2|
|00001840| 2c 78 31 2c 79 31 29 0d | 09 09 09 09 65 6e 64 0d |,x1,y1).|....end.|
|00001850| 09 09 09 45 4c 53 45 20 | 49 46 20 75 6e 69 74 53 |...ELSE |IF unitS|
|00001860| 74 72 33 20 3d 20 27 2e | 32 27 20 54 48 45 4e 20 |tr3 = '.|2' THEN |
|00001870| 42 65 67 69 6e 0d 09 09 | 09 09 47 65 74 53 79 6d |Begin...|..GetSym|
|00001880| 4c 6f 63 28 69 6e 73 69 | 64 65 4f 62 6a 33 2c 78 |Loc(insi|deObj3,x|
|00001890| 31 2c 79 31 29 0d 09 09 | 09 09 65 6e 64 3b 0d 09 |1,y1)...|..end;..|
|000018a0| 09 09 78 20 3a 3d 20 78 | 31 3b 0d 09 09 09 79 20 |..x := x|1;....y |
|000018b0| 3a 3d 20 79 31 3b 0d 09 | 09 45 4e 44 0d 09 09 45 |:= y1;..|.END...E|
|000018c0| 4c 53 45 20 42 45 47 49 | 4e 0d 09 09 09 75 6e 69 |LSE BEGI|N....uni|
|000018d0| 74 4e 75 6d 34 20 3a 3d | 20 53 74 72 32 4e 75 6d |tNum4 :=| Str2Num|
|000018e0| 28 45 76 61 6c 53 74 72 | 28 69 6e 73 69 64 65 4f |(EvalStr|(insideO|
|000018f0| 62 6a 34 2c 20 28 27 4c | 69 67 68 74 73 27 2e 27 |bj4, ('L|ights'.'|
|00001900| 55 6e 69 74 20 23 27 29 | 29 29 3b 0d 09 09 09 49 |Unit #')|));....I|
|00001910| 46 20 75 6e 69 74 4e 75 | 6d 31 2d 54 72 75 6e 63 |F unitNu|m1-Trunc|
|00001920| 28 75 6e 69 74 4e 75 6d | 31 29 20 3d 20 30 2e 32 |(unitNum|1) = 0.2|
|00001930| 20 54 48 45 4e 0d 09 09 | 09 09 47 65 74 53 79 6d | THEN...|..GetSym|
|00001940| 4c 6f 63 28 69 6e 73 69 | 64 65 4f 62 6a 31 2c 78 |Loc(insi|deObj1,x|
|00001950| 31 2c 79 31 29 0d 09 09 | 09 45 4c 53 45 20 49 46 |1,y1)...|.ELSE IF|
|00001960| 20 75 6e 69 74 4e 75 6d | 32 2d 54 72 75 6e 63 28 | unitNum|2-Trunc(|
|00001970| 75 6e 69 74 4e 75 6d 32 | 29 20 3d 20 30 2e 32 20 |unitNum2|) = 0.2 |
|00001980| 54 48 45 4e 0d 09 09 09 | 09 47 65 74 53 79 6d 4c |THEN....|.GetSymL|
|00001990| 6f 63 28 69 6e 73 69 64 | 65 4f 62 6a 32 2c 78 31 |oc(insid|eObj2,x1|
|000019a0| 2c 79 31 29 0d 09 09 09 | 45 4c 53 45 20 49 46 20 |,y1)....|ELSE IF |
|000019b0| 75 6e 69 74 4e 75 6d 33 | 2d 54 72 75 6e 63 28 75 |unitNum3|-Trunc(u|
|000019c0| 6e 69 74 4e 75 6d 33 29 | 20 3d 20 30 2e 32 20 54 |nitNum3)| = 0.2 T|
|000019d0| 48 45 4e 0d 09 09 09 09 | 47 65 74 53 79 6d 4c 6f |HEN.....|GetSymLo|
|000019e0| 63 28 69 6e 73 69 64 65 | 4f 62 6a 33 2c 78 31 2c |c(inside|Obj3,x1,|
|000019f0| 79 31 29 0d 09 09 09 45 | 4c 53 45 20 49 46 20 75 |y1)....E|LSE IF u|
|00001a00| 6e 69 74 4e 75 6d 34 2d | 54 72 75 6e 63 28 75 6e |nitNum4-|Trunc(un|
|00001a10| 69 74 4e 75 6d 34 29 20 | 3d 20 30 2e 32 20 54 48 |itNum4) |= 0.2 TH|
|00001a20| 45 4e 0d 09 09 09 09 47 | 65 74 53 79 6d 4c 6f 63 |EN.....G|etSymLoc|
|00001a30| 28 69 6e 73 69 64 65 4f | 62 6a 34 2c 78 31 2c 79 |(insideO|bj4,x1,y|
|00001a40| 31 29 3b 0d 09 09 09 09 | 0d 09 09 09 49 46 20 75 |1);.....|....IF u|
|00001a50| 6e 69 74 4e 75 6d 31 2d | 54 72 75 6e 63 28 75 6e |nitNum1-|Trunc(un|
|00001a60| 69 74 4e 75 6d 31 29 20 | 3d 20 30 2e 33 20 54 48 |itNum1) |= 0.3 TH|
|00001a70| 45 4e 0d 09 09 09 09 47 | 65 74 53 79 6d 4c 6f 63 |EN.....G|etSymLoc|
|00001a80| 28 69 6e 73 69 64 65 4f | 62 6a 31 2c 78 32 2c 79 |(insideO|bj1,x2,y|
|00001a90| 32 29 0d 09 09 09 45 4c | 53 45 20 49 46 20 75 6e |2)....EL|SE IF un|
|00001aa0| 69 74 4e 75 6d 32 2d 54 | 72 75 6e 63 28 75 6e 69 |itNum2-T|runc(uni|
|00001ab0| 74 4e 75 6d 32 29 20 3d | 20 30 2e 33 20 54 48 45 |tNum2) =| 0.3 THE|
|00001ac0| 4e 0d 09 09 09 09 47 65 | 74 53 79 6d 4c 6f 63 28 |N.....Ge|tSymLoc(|
|00001ad0| 69 6e 73 69 64 65 4f 62 | 6a 32 2c 78 32 2c 79 32 |insideOb|j2,x2,y2|
|00001ae0| 29 0d 09 09 09 45 4c 53 | 45 20 49 46 20 75 6e 69 |)....ELS|E IF uni|
|00001af0| 74 4e 75 6d 33 2d 54 72 | 75 6e 63 28 75 6e 69 74 |tNum3-Tr|unc(unit|
|00001b00| 4e 75 6d 33 29 20 3d 20 | 30 2e 33 20 54 48 45 4e |Num3) = |0.3 THEN|
|00001b10| 0d 09 09 09 09 47 65 74 | 53 79 6d 4c 6f 63 28 69 |.....Get|SymLoc(i|
|00001b20| 6e 73 69 64 65 4f 62 6a | 33 2c 78 32 2c 79 32 29 |nsideObj|3,x2,y2)|
|00001b30| 0d 09 09 09 45 4c 53 45 | 20 49 46 20 75 6e 69 74 |....ELSE| IF unit|
|00001b40| 4e 75 6d 34 2d 54 72 75 | 6e 63 28 75 6e 69 74 4e |Num4-Tru|nc(unitN|
|00001b50| 75 6d 34 29 20 3d 20 30 | 2e 33 20 54 48 45 4e 0d |um4) = 0|.3 THEN.|
|00001b60| 09 09 09 09 47 65 74 53 | 79 6d 4c 6f 63 28 69 6e |....GetS|ymLoc(in|
|00001b70| 73 69 64 65 4f 62 6a 34 | 2c 78 32 2c 79 32 29 3b |sideObj4|,x2,y2);|
|00001b80| 0d 09 09 09 78 20 3a 3d | 20 78 31 20 2b 20 28 28 |....x :=| x1 + ((|
|00001b90| 78 32 20 2d 20 78 31 29 | 2f 32 29 3b 0d 09 09 09 |x2 - x1)|/2);....|
|00001ba0| 79 20 3a 3d 20 79 31 20 | 2b 20 28 28 79 32 20 2d |y := y1 |+ ((y2 -|
|00001bb0| 20 79 31 29 2f 32 29 3b | 0d 09 09 45 4e 44 3b 0d | y1)/2);|...END;.|
|00001bc0| 09 45 4e 44 3b 20 7b 50 | 52 4f 43 45 44 55 52 45 |.END; {P|ROCEDURE|
|00001bd0| 20 47 65 74 47 72 6f 75 | 70 53 79 6d 52 6f 74 61 | GetGrou|pSymRota|
|00001be0| 74 65 50 74 7d 0d 09 0d | 7b 2d 2d 2d 2d 2d 2d 2d |tePt}...|{-------|
|00001bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c20| 7d 0d 0d 42 45 47 49 4e | 0d 09 47 65 74 4f 72 69 |}..BEGIN|..GetOri|
|00001c30| 67 69 6e 28 58 2c 59 29 | 3b 0d 09 53 65 74 4f 72 |gin(X,Y)|;..SetOr|
|00001c40| 69 67 69 6e 28 30 2d 58 | 2c 30 2d 59 29 3b 0d 09 |igin(0-X|,0-Y);..|
|00001c50| 49 46 20 28 4e 75 6d 53 | 4f 62 6a 28 41 63 74 4c |IF (NumS|Obj(ActL|
|00001c60| 61 79 65 72 29 20 3e 20 | 31 29 20 20 54 48 45 4e |ayer) > |1)  THEN|
|00001c70| 0d 09 42 45 47 49 4e 0d | 09 09 46 4f 52 20 49 6e |..BEGIN.|..FOR In|
|00001c80| 64 65 78 20 20 3a 3d 20 | 31 20 54 4f 20 31 30 30 |dex  := |1 TO 100|
|00001c90| 20 44 4f 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 48 | DO...BE|GIN....H|
|00001ca0| 61 6e 64 6c 65 41 72 72 | 61 79 5b 49 6e 64 65 78 |andleArr|ay[Index|
|00001cb0| 5d 20 3a 3d 20 4e 49 4c | 3b 0d 09 09 09 4e 75 6d |] := NIL|;....Num|
|00001cc0| 41 72 72 61 79 5b 49 6e | 64 65 78 5d 20 3a 3d 20 |Array[In|dex] := |
|00001cd0| 30 3b 0d 09 09 45 4e 44 | 3b 0d 09 09 52 6f 74 61 |0;...END|;...Rota|
|00001ce0| 74 65 4f 62 6a 65 63 74 | 73 20 3a 3d 20 59 4e 44 |teObject|s := YND|
|00001cf0| 69 61 6c 6f 67 28 27 52 | 6f 74 61 74 65 20 53 79 |ialog('R|otate Sy|
|00001d00| 6d 62 6f 6c 73 20 50 65 | 72 70 65 6e 64 69 63 75 |mbols Pe|rpendicu|
|00001d10| 6c 61 72 20 74 6f 20 74 | 68 65 20 6c 69 6e 65 3f |lar to t|he line?|
|00001d20| 27 29 3b 0d 09 09 52 65 | 64 72 61 77 41 6c 6c 3b |');...Re|drawAll;|
|00001d30| 0d 09 09 41 6e 67 6c 65 | 56 61 72 3b 0d 09 09 4f |...Angle|Var;...O|
|00001d40| 62 6a 48 61 6e 64 6c 65 | 20 3a 3d 20 46 53 41 63 |bjHandle| := FSAc|
|00001d50| 74 4c 61 79 65 72 3b 0d | 09 09 46 69 6c 6c 41 72 |tLayer;.|..FillAr|
|00001d60| 72 61 79 3b 0d 09 09 49 | 46 20 28 4e 4f 54 20 4d |ray;...I|F (NOT M|
|00001d70| 69 73 73 69 6e 67 4e 75 | 6d 62 65 72 29 20 54 48 |issingNu|mber) TH|
|00001d80| 45 4e 0d 09 09 42 45 47 | 49 4e 0d 09 09 09 4d 65 |EN...BEG|IN....Me|
|00001d90| 73 73 61 67 65 28 27 44 | 72 61 77 20 64 69 73 74 |ssage('D|raw dist|
|00001da0| 72 69 62 75 74 69 6f 6e | 20 6c 69 6e 65 2e 20 4b |ribution| line. K|
|00001db0| 65 79 20 64 6f 77 6e 20 | 74 6f 20 61 62 6f 72 74 |ey down |to abort|
|00001dc0| 27 29 3b 0d 09 09 09 47 | 65 74 4c 69 6e 65 28 6d |');....G|etLine(m|
|00001dd0| 2c 66 2c 67 2c 68 29 3b | 0d 09 09 09 41 62 6f 72 |,f,g,h);|....Abor|
|00001de0| 74 20 3a 3d 20 4b 65 79 | 44 6f 77 6e 28 54 68 65 |t := Key|Down(The|
|00001df0| 4b 65 79 29 3b 0d 09 09 | 09 49 46 20 54 68 65 4b |Key);...|.IF TheK|
|00001e00| 65 79 20 3d 20 30 20 54 | 48 45 4e 0d 09 09 09 42 |ey = 0 T|HEN....B|
|00001e10| 45 47 49 4e 0d 09 0d 09 | 09 09 09 43 6c 72 4d 65 |EGIN....|...ClrMe|
|00001e20| 73 73 61 67 65 3b 0d 09 | 09 09 09 49 46 20 6d 20 |ssage;..|...IF m |
|00001e30| 3d 20 67 20 54 48 45 4e | 0d 09 09 09 09 09 61 20 |= g THEN|......a |
|00001e40| 3a 3d 20 39 30 0d 09 09 | 09 09 45 4c 53 45 0d 09 |:= 90...|..ELSE..|
|00001e50| 09 09 09 09 61 20 3a 3d | 20 41 72 63 54 61 6e 28 |....a :=| ArcTan(|
|00001e60| 28 68 20 2d 20 66 29 2f | 28 67 20 2d 20 6d 29 29 |(h - f)/|(g - m))|
|00001e70| 20 2a 20 31 38 30 2f 70 | 69 3b 0d 09 09 09 09 64 | * 180/p|i;.....d|
|00001e80| 20 3a 3d 20 44 69 73 74 | 61 6e 63 65 28 6d 2c 66 | := Dist|ance(m,f|
|00001e90| 2c 67 2c 68 29 2f 28 4e | 75 6d 53 4f 62 6a 28 41 |,g,h)/(N|umSObj(A|
|00001ea0| 63 74 4c 61 79 65 72 29 | 20 2d 20 31 29 3b 0d 09 |ctLayer)| - 1);..|
|00001eb0| 09 09 09 49 46 20 28 28 | 61 20 3d 20 39 30 29 20 |...IF ((|a = 90) |
|00001ec0| 26 20 28 68 20 3c 20 66 | 29 29 20 4f 52 20 28 67 |& (h < f|)) OR (g|
|00001ed0| 20 3c 20 6d 29 20 54 48 | 45 4e 0d 09 09 09 09 09 | < m) TH|EN......|
|00001ee0| 64 20 3a 3d 20 2d 64 3b | 0d 09 09 09 09 4d 6f 76 |d := -d;|.....Mov|
|00001ef0| 65 54 6f 28 6d 2c 66 29 | 3b 0d 09 09 09 09 53 6f |eTo(m,f)|;.....So|
|00001f00| 72 74 41 72 72 61 79 3b | 0d 09 09 09 09 46 4f 52 |rtArray;|.....FOR|
|00001f10| 20 49 6e 64 65 78 20 3a | 3d 20 31 20 54 4f 20 20 | Index :|= 1 TO  |
|00001f20| 4e 75 6d 4f 66 4f 62 6a | 73 20 44 4f 0d 09 09 09 |NumOfObj|s DO....|
|00001f30| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 4f 62 6a 48 |.BEGIN..|....ObjH|
|00001f40| 61 6e 64 6c 65 20 3a 3d | 20 48 61 6e 64 6c 65 41 |andle :=| HandleA|
|00001f50| 72 72 61 79 5b 49 6e 64 | 65 78 5d 3b 0d 09 09 09 |rray[Ind|ex];....|
|00001f60| 09 09 49 46 20 47 65 74 | 54 79 70 65 28 4f 62 6a |..IF Get|Type(Obj|
|00001f70| 48 61 6e 64 6c 65 29 20 | 3d 20 31 35 20 54 48 45 |Handle) |= 15 THE|
|00001f80| 4e 0d 09 09 09 09 09 09 | 47 65 74 53 79 6d 4c 6f |N.......|GetSymLo|
|00001f90| 63 28 4f 62 6a 48 61 6e | 64 6c 65 2c 69 2c 6a 29 |c(ObjHan|dle,i,j)|
|00001fa0| 0d 09 09 09 09 09 45 4c | 53 45 20 42 45 47 49 4e |......EL|SE BEGIN|
|00001fb0| 0d 09 09 09 09 09 09 47 | 65 74 47 72 6f 75 70 53 |.......G|etGroupS|
|00001fc0| 79 6d 52 6f 74 61 74 65 | 50 74 28 4f 62 6a 48 61 |ymRotate|Pt(ObjHa|
|00001fd0| 6e 64 6c 65 2c 69 2c 6a | 29 3b 0d 09 09 09 09 09 |ndle,i,j|);......|
|00001fe0| 09 45 4e 44 3b 0d 09 09 | 09 09 09 48 4d 6f 76 65 |.END;...|...HMove|
|00001ff0| 28 4f 62 6a 48 61 6e 64 | 6c 65 2c 6d 20 2d 20 69 |(ObjHand|le,m - i|
|00002000| 2c 66 20 2d 20 6a 29 3b | 0d 09 09 09 09 09 4d 6f |,f - j);|......Mo|
|00002010| 76 65 54 6f 28 64 2c 23 | 61 29 3b 0d 09 09 09 09 |veTo(d,#|a);.....|
|00002020| 09 44 53 65 6c 65 63 74 | 41 6c 6c 3b 0d 09 09 09 |.DSelect|All;....|
|00002030| 09 09 49 46 20 52 6f 74 | 61 74 65 4f 62 6a 65 63 |..IF Rot|ateObjec|
|00002040| 74 73 20 54 48 45 4e 0d | 09 09 09 09 09 42 45 47 |ts THEN.|.....BEG|
|00002050| 49 4e 0d 09 09 09 09 09 | 09 53 65 74 53 65 6c 65 |IN......|.SetSele|
|00002060| 63 74 28 4f 62 6a 48 61 | 6e 64 6c 65 29 3b 0d 09 |ct(ObjHa|ndle);..|
|00002070| 09 09 09 09 09 49 46 20 | 47 65 74 54 79 70 65 28 |.....IF |GetType(|
|00002080| 4f 62 6a 48 61 6e 64 6c | 65 29 20 3d 20 31 35 20 |ObjHandl|e) = 15 |
|00002090| 54 48 45 4e 0d 09 09 09 | 09 09 09 09 47 65 74 53 |THEN....|....GetS|
|000020a0| 79 6d 4c 6f 63 28 4f 62 | 6a 48 61 6e 64 6c 65 2c |ymLoc(Ob|jHandle,|
|000020b0| 69 2c 6a 29 0d 09 09 09 | 09 09 09 45 4c 53 45 20 |i,j)....|...ELSE |
|000020c0| 42 45 47 49 4e 0d 09 09 | 09 09 09 09 09 47 65 74 |BEGIN...|.....Get|
|000020d0| 47 72 6f 75 70 53 79 6d | 52 6f 74 61 74 65 50 74 |GroupSym|RotatePt|
|000020e0| 28 4f 62 6a 48 61 6e 64 | 6c 65 2c 69 2c 6a 29 3b |(ObjHand|le,i,j);|
|000020f0| 0d 09 09 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 09 |.......E|ND;.....|
|00002100| 09 09 52 6f 74 61 74 65 | 50 6f 69 6e 74 28 69 2c |..Rotate|Point(i,|
|00002110| 6a 2c 23 61 2d 53 79 6d | 41 6e 67 6c 65 41 72 72 |j,#a-Sym|AngleArr|
|00002120| 61 79 5b 69 6e 64 65 78 | 5d 29 3b 0d 09 09 09 09 |ay[index|]);.....|
|00002130| 09 45 4e 44 3b 0d 09 09 | 09 09 09 50 65 6e 4c 6f |.END;...|...PenLo|
|00002140| 63 28 6d 2c 66 29 3b 0d | 09 09 09 09 45 4e 44 3b |c(m,f);.|....END;|
|00002150| 20 7b 46 4f 52 20 49 6e | 64 65 78 20 3a 3d 20 31 | {FOR In|dex := 1|
|00002160| 20 54 4f 20 20 4e 75 6d | 4f 66 4f 62 6a 73 7d 0d | TO  Num|OfObjs}.|
|00002170| 09 09 09 09 52 65 64 72 | 61 77 3b 0d 09 09 09 45 |....Redr|aw;....E|
|00002180| 4e 44 3b 20 7b 49 46 20 | 54 68 65 4b 65 79 20 3d |ND; {IF |TheKey =|
|00002190| 20 30 7d 0d 09 09 45 4e | 44 20 7b 49 46 20 28 4e | 0}...EN|D {IF (N|
|000021a0| 4f 54 20 4d 69 73 73 69 | 6e 67 4e 75 6d 62 65 72 |OT Missi|ngNumber|
|000021b0| 29 7d 0d 09 09 45 4c 53 | 45 0d 09 09 42 45 47 49 |)}...ELS|E...BEGI|
|000021c0| 4e 0d 09 09 09 53 79 73 | 62 65 65 70 3b 0d 09 09 |N....Sys|beep;...|
|000021d0| 09 41 6c 72 74 44 69 61 | 6c 6f 67 28 27 41 74 20 |.AlrtDia|log('At |
|000021e0| 6c 65 61 73 74 20 6f 6e | 65 20 73 79 6d 62 6f 6c |least on|e symbol|
|000021f0| 20 69 73 20 6e 6f 74 20 | 6e 75 6d 62 65 72 65 64 | is not |numbered|
|00002200| 2e 27 29 3b 0d 09 09 45 | 4e 44 3b 0d 09 45 4e 44 |.');...E|ND;..END|
|00002210| 20 7b 49 46 20 28 4e 75 | 6d 53 4f 62 6a 28 41 63 | {IF (Nu|mSObj(Ac|
|00002220| 74 4c 61 79 65 72 29 20 | 3e 20 31 29 7d 0d 09 45 |tLayer) |> 1)}..E|
|00002230| 4c 53 45 20 0d 09 42 45 | 47 49 4e 0d 09 09 53 79 |LSE ..BE|GIN...Sy|
|00002240| 73 62 65 65 70 3b 0d 09 | 09 41 6c 72 74 44 69 61 |sbeep;..|.AlrtDia|
|00002250| 6c 6f 67 28 27 4e 6f 74 | 20 65 6e 6f 75 67 68 20 |log('Not| enough |
|00002260| 6f 62 6a 65 63 74 73 20 | 61 72 65 20 73 65 6c 65 |objects |are sele|
|00002270| 63 74 65 64 2e 27 29 3b | 0d 09 45 4e 44 3b 0d 09 |cted.');|..END;..|
|00002280| 46 4f 52 20 49 6e 64 65 | 78 20 3a 3d 20 31 20 54 |FOR Inde|x := 1 T|
|00002290| 4f 20 31 30 30 20 44 4f | 0d 09 42 45 47 49 4e 0d |O 100 DO|..BEGIN.|
|000022a0| 09 09 48 61 6e 64 6c 65 | 41 72 72 61 79 5b 49 6e |..Handle|Array[In|
|000022b0| 64 65 78 5d 20 3a 3d 20 | 4e 49 4c 3b 0d 09 09 4e |dex] := |NIL;...N|
|000022c0| 75 6d 41 72 72 61 79 5b | 49 6e 64 65 78 5d 20 3a |umArray[|Index] :|
|000022d0| 3d 20 30 3b 0d 09 45 4e | 44 3b 0d 09 53 65 74 4f |= 0;..EN|D;..SetO|
|000022e0| 72 69 67 69 6e 28 30 2b | 58 2c 30 2b 59 29 3b 0d |rigin(0+|X,0+Y);.|
|000022f0| 0d 09 43 6c 72 4d 65 73 | 73 61 67 65 3b 0d 09 53 |..ClrMes|sage;..S|
|00002300| 79 73 42 65 65 70 3b 0d | 45 4e 44 3b 20 7b 50 52 |ysBeep;.|END; {PR|
|00002310| 4f 43 45 44 55 52 45 20 | 44 69 73 74 72 69 62 75 |OCEDURE |Distribu|
|00002320| 74 65 53 79 6d 73 41 6c | 6f 6e 67 4c 69 6e 65 7d |teSymsAl|ongLine}|
|00002330| 0d 52 55 4e 28 44 69 73 | 74 72 69 62 75 74 65 53 |.RUN(Dis|tributeS|
|00002340| 79 6d 73 41 6c 6f 6e 67 | 4c 69 6e 65 29 3b 0d    |ymsAlong|Line);. |
+--------+-------------------------+-------------------------+--------+--------+